#include <unistd.h>
#include <sys/types.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <sys/socket.h> 
#include <netinet/in.h>
#include <arpa/inet.h>
#include <netdb.h>   
#include <sys/stat.h>     
#include <fcntl.h>      /*文件控制定义*/  
#include <termios.h>    /*PPSIX 终端控制定义*/ 
#include <sys/time.h>
#include <sys/select.h>


#define SERVER_PORT 8888
#define MAX_MSG_SIZE 1024 
#define FALSE  -1  
#define TRUE   0 

#define SHOWENV (0x01)
#define CLOSE	(0x02)
#define OPEN	(0x03)


void udps_respon(int sockfd,int uartfd)
{
	struct sockaddr_in addr;
	int addrlen,n,h,x,y,retlen;
	char msg[MAX_MSG_SIZE];
	char buffer[MAX_MSG_SIZE]="receive fail!";
	char buffer1[MAX_MSG_SIZE]="SEND FAIL!";
	char buffer2[MAX_MSG_SIZE]="SEND OK!";
	char rcv_buf[MAX_MSG_SIZE];
	char send_buf[MAX_MSG_SIZE]="hellozcq";
	
	while(1)
	{
		/*从网络上读，并写到网络上*/
		bzero(msg,sizeof(msg));
		bzero(rcv_buf,sizeof(rcv_buf));
		addrlen=sizeof(struct sockaddr);
		n=recvfrom(sockfd,msg,MAX_MSG_SIZE,0,(struct sockaddr *)&addr,&addrlen);//从客户端接收数据
		msg[n]='\0';
		//fprintf(stdout,"Server have received:%s",msg);//显示数据	
		
		//向客户端写数据
		/*if(msg[0]=='1'){
			addrlen=sizeof(struct sockaddr);
			h=sizeof(buffer);
			sendto(sockfd,buffer,h,0,(struct sockaddr *)&addr,addrlen);
			printf("发送1成功！\n");
		}else{
			addrlen=sizeof(struct sockaddr);
			x=sizeof(buffer1);
			sendto(sockfd,buffer1,x,0,(struct sockaddr *)&addr,addrlen);
			printf("发送2成功！\n");
		}*/
		
		//处理来自客户端信息
		switch(msg[0])
		{
			case SHOWENV:
			{
				addrlen=sizeof(struct sockaddr);
				//h=sizeof(buffer);
				h=UART0_Recv(uartfd, rcv_buf,9);
				if(h>0)
				{
					rcv_buf[h] = '\0'; 
					sendto(sockfd,rcv_buf,h,0,(struct sockaddr *)&addr,addrlen);
					printf("hello one!\n");
				}
				else
				{
					h=sizeof(buffer);
					sendto(sockfd,buffer,h,0,(struct sockaddr *)&addr,addrlen);
					printf("cannot receive data\n");
				}
				break;
			}
			case CLOSE:
			{
				addrlen=sizeof(struct sockaddr);
				//x=sizeof(buffer1);
				x=UART0_Recv(uartfd, rcv_buf,9);
				if(x > 0)  
                {  
					rcv_buf[x] = '\0';  
					sendto(sockfd,rcv_buf,x,0,(struct sockaddr *)&addr,addrlen); 
					printf("hello two!\n");
                }  
                else  
                {  
					printf("cannot receive data\n");  
                }
				break;
			}
			case OPEN:
			{
				retlen=UART0_Send(uartfd,send_buf,9);
				if(retlen == 9)
				{
					addrlen=sizeof(struct sockaddr);
					y=sizeof(buffer2);
					sendto(sockfd,buffer2,y,0,(struct sockaddr *)&addr,addrlen);
					printf("hello three!\n");
				}
				else
				{
					addrlen=sizeof(struct sockaddr);
					y=sizeof(buffer1);
					sendto(sockfd,buffer1,y,0,(struct sockaddr *)&addr,addrlen);
					printf("hello three!\n");
				}
				break;
			}
			default:
			{
				printf("cmd not define!\n");
				break;
			}
		}
	}	
}

/******************************************************************* 
* 名称：                  UART0_Open 
* 功能：                打开串口并返回串口设备文件描述 
* 入口参数：        fd    :文件描述符     port :串口号(ttyS0,ttyS1,ttyS2) 
* 出口参数：        正确返回为fd，错误返回为-1 
*******************************************************************/  
int UART0_Open(int fd,char* port)  
{  	
         fd = open( port, O_RDWR|O_NOCTTY|O_NDELAY);  
         if (FALSE == fd)  
                {  
                       perror("Can't Open Serial Port");  
                       return(FALSE);  
                }  
     //恢复串口为阻塞状态                                 
     if(fcntl(fd, F_SETFL, 0) < 0)  
                {  
                       printf("fcntl failed!\n");  
                     return(FALSE);  
                }       
         else  
                {  
                  printf("fcntl=%d\n",fcntl(fd, F_SETFL,0));  
                }  
      //测试是否为终端设备      
      if(0 == isatty(STDIN_FILENO))  
                {  
                       printf("standard input is not a terminal device\n");  
                  return(FALSE);  
                }  
  else  
                {  
                     printf("isatty success!\n");  
                }                
  printf("fd->open=%d\n",fd);  
  return fd;  
}  
/******************************************************************* 
* 名称：                UART0_Close 
* 功能：                关闭串口并返回串口设备文件描述 
* 入口参数：        fd    :文件描述符     port :串口号(ttyS0,ttyS1,ttyS2) 
* 出口参数：        void 
*******************************************************************/  
   
void UART0_Close(int fd)  
{  
    close(fd);  
}  
   
/******************************************************************* 
* 名称：                UART0_Set 
* 功能：                设置串口数据位，停止位和效验位 
* 入口参数：        fd        串口文件描述符 
*                              speed     串口速度 
*                              flow_ctrl   数据流控制 
*                           databits   数据位   取值为 7 或者8 
*                           stopbits   停止位   取值为 1 或者2 
*                           parity     效验类型 取值为N,E,O,,S 
*出口参数：          正确返回为0，错误返回为-1
*******************************************************************/  
int UART0_Set(int fd,int speed,int flow_ctrl,int databits,int stopbits,int parity)  
{  
     
      	int   i;  
        int   status;  
        int   speed_arr[] = { B115200, B19200, B9600, B4800, B2400, B1200, B300};  
     	int   name_arr[] = {115200,  19200,  9600,  4800,  2400,  1200,  300};  
           
    	struct termios options;  
     
    /*tcgetattr(fd,&options)得到与fd指向对象的相关参数，并将它们保存于options,该函数还可以测试配置是否正确，该串口是否可用等。若调用成功，函数返回值为0，若调用失败，函数返回值为1. 
    */  
    	if  ( tcgetattr( fd,&options)  !=  0)  
       {  
          perror("SetupSerial 1");      
          return(FALSE);   
       }  
    
    //设置串口输入波特率和输出波特率  
    	for ( i= 0;  i < sizeof(speed_arr) / sizeof(int);  i++)  
                {  
                     if  (speed == name_arr[i])  
                            {               
                                 cfsetispeed(&options, speed_arr[i]);   
                                 cfsetospeed(&options, speed_arr[i]);    
                            }  
              }       
     
    //修改控制模式，保证程序不会占用串口  
    options.c_cflag |= CLOCAL;  
    //修改控制模式，使得能够从串口中读取输入数据  
    options.c_cflag |= CREAD;  
    
    //设置数据流控制  
    switch(flow_ctrl)  
    {  
        
       case 0 ://不使用流控制  
              options.c_cflag &= ~CRTSCTS;  
              break;     
        
       case 1 ://使用硬件流控制  
              options.c_cflag |= CRTSCTS;  
              break;  
       case 2 ://使用软件流控制  
              options.c_cflag |= IXON | IXOFF | IXANY;  
              break;  
    }  
    //设置数据位  
    //屏蔽其他标志位  
    options.c_cflag &= ~CSIZE;  
    switch (databits)  
    {    
       case 5    :  
                     options.c_cflag |= CS5;  
                     break;  
       case 6    :  
                     options.c_cflag |= CS6;  
                     break;  
       case 7    :      
                 options.c_cflag |= CS7;  
                 break;  
       case 8:      
                 options.c_cflag |= CS8;  
                 break;    
       default:     
                 fprintf(stderr,"Unsupported data size\n");  
                 return (FALSE);   
    }  
    //设置校验位  
    switch (parity)  
    {    
       case 'n':  
       case 'N': //无奇偶校验位。  
                 options.c_cflag &= ~PARENB;   
                 options.c_iflag &= ~INPCK;      
                 break;   
       case 'o':    
       case 'O'://设置为奇校验      
                 options.c_cflag |= (PARODD | PARENB);   
                 options.c_iflag |= INPCK;               
                 break;   
       case 'e':   
       case 'E'://设置为偶校验    
                 options.c_cflag |= PARENB;         
                 options.c_cflag &= ~PARODD;         
                 options.c_iflag |= INPCK;        
                 break;  
       case 's':  
       case 'S': //设置为空格   
                 options.c_cflag &= ~PARENB;  
                 options.c_cflag &= ~CSTOPB;  
                 break;   
        default:    
                 fprintf(stderr,"Unsupported parity\n");      
                 return (FALSE);   
    }   
    // 设置停止位   
    switch (stopbits)  
    {    
       case 1:     
                 options.c_cflag &= ~CSTOPB; break;   
       case 2:     
                 options.c_cflag |= CSTOPB; break;  
       default:     
                       fprintf(stderr,"Unsupported stop bits\n");   
                       return (FALSE);  
    }  
     
  //修改输出模式，原始数据输出  
  options.c_oflag &= ~OPOST;  
    
  options.c_lflag &= ~(ICANON | ECHO | ECHOE | ISIG);//我加的  
//options.c_lflag &= ~(ISIG | ICANON);  
     
    //设置等待时间和最小接收字符  
    options.c_cc[VTIME] = 1; /* 读取一个字符等待1*(1/10)s */    
    options.c_cc[VMIN] = 1; /* 读取字符的最少个数为1 */  
     
    //如果发生数据溢出，接收数据，但是不再读取 刷新收到的数据但是不读  
    tcflush(fd,TCIFLUSH);  
     
    //激活配置 (将修改后的termios数据设置到串口中）  
    if (tcsetattr(fd,TCSANOW,&options) != 0)    
           {  
               perror("com set error!\n");    
              return (FALSE);   
           }  
    return (TRUE);   
}  
/******************************************************************* 
* 名称：                UART0_Init() 
* 功能：                串口初始化 
* 入口参数：        fd       :  文件描述符    
*               speed  :  串口速度 
*                              flow_ctrl  数据流控制 
*               databits   数据位   取值为 7 或者8 
*                           stopbits   停止位   取值为 1 或者2 
*                           parity     效验类型 取值为N,E,O,,S 
*                       
* 出口参数：        正确返回为0，错误返回为-1 
*******************************************************************/  
int UART0_Init(int fd, int speed,int flow_ctrl,int databits,int stopbits,int parity)  
{  
    int err;  
    //设置串口数据帧格式  
   if (UART0_Set(fd,speed,flow_ctrl,databits,stopbits,'N') == FALSE)  
       {                                                           
        return FALSE;  
       }  
    else  
       {  
               return  TRUE;  
        } 
}  
   
/******************************************************************* 
* 名称：                  UART0_Recv 
* 功能：                接收串口数据 
* 入口参数：        fd                  :文件描述符     
*                              rcv_buf     :接收串口中数据存入rcv_buf缓冲区中 
*                              data_len    :一帧数据的长度 
* 出口参数：        正确返回为len，错误返回为-1 
*******************************************************************/  
int UART0_Recv(int fd, char *rcv_buf,int data_len)  
{  
    int len,fs_sel;  
    fd_set fs_read;  
     
    struct timeval time;  
     
    FD_ZERO(&fs_read);  
    FD_SET(fd,&fs_read);  
     
    time.tv_sec = 10;  
    time.tv_usec = 0;  
     
    //使用select实现串口的多路通信  
    fs_sel = select(fd+1,&fs_read,NULL,NULL,&time);  
    if(fs_sel)  
       {  
              len = read(fd,rcv_buf,data_len);  
          printf("I am right!(version1.2) len = %d fs_sel = %d\n",len,fs_sel);  
              return len;  
       }  
    else  
       {  
          printf("Sorry,I am wrong!");  
              return FALSE;  
       }       
}  
/******************************************************************** 
* 名称：                  UART0_Send 
* 功能：                发送数据 
* 入口参数：        fd                  :文件描述符     
*                              send_buf    :存放串口发送数据 
*                              data_len    :一帧数据的个数 
* 出口参数：        正确返回为len，错误返回为0 
*******************************************************************/  
int UART0_Send(int fd, char *send_buf,int data_len)  
{  
    int len = 0;  
     
    len = write(fd,send_buf,data_len);  
    if (len == data_len )  
              {  
                     return len;  
              }       
    else     
        {  
                 
                tcflush(fd,TCOFLUSH);  
                return FALSE;  
        }  
     
}


int main (int argc, char **argv)
{

	int sockfd; 
	struct sockaddr_in addr;
	
	/*服务器端开始建立socket描述符*/
	sockfd=socket(AF_INET,SOCK_DGRAM,0);
	if (sockfd<0)
	{
		perror("socket:");
		exit(1);	
	}	
	/*服务器端填充sockaddr结构*/
	bzero(&addr,sizeof(struct sockaddr_in));
	addr.sin_family=AF_INET;
	addr.sin_addr.s_addr=htonl(INADDR_ANY);
	addr.sin_port=htons(SERVER_PORT);
	
	/*绑定sockfd描述符*/
	if (bind(sockfd,(struct sockaddr *)&addr,sizeof(struct sockaddr_in))<0)
	{
		perror("bind:");
		exit(1);	
	}
	
	printf("udp server init success！\n");

	//初始化串口
	int uartfd;
	int err;
	if(argc != 2)  
    {  
		printf("Usage: %s /dev/ttySn 0(send data)/1 (receive data) \n",argv[0]);  
        return FALSE;  
    }  
    uartfd = UART0_Open(uartfd,argv[1]); //打开串口，返回文件描述符 
	do{  
                  err = UART0_Init(uartfd,115200,0,8,1,'N');  
                  printf("Set Port Exactly!\n");  
       }while(FALSE == err || FALSE == uartfd);
	printf("uart init success!\n");

	udps_respon(sockfd,uartfd); //进行读写操作
	close(sockfd);
	close(uartfd);
}
